home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1994 March / 64er_Magazin_94-03_1994_Markt__Technik_de_Side_A.d64 / kalender prg. 6 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  504b  |  24 lines
  1. 10 input"datum format ttmmjjjj ";d$
  2. 20 t=val(mid$(d$,1,2))
  3. 30 m=val(mid$(d$,3,2))
  4. 40 j=val(mid$(d$,5))
  5. 50 gosub 1000
  6. 60 unt=jd-723121+2
  7. 70 tag=unt-int(unt/7)*7
  8. 80 tag$(0)="sonntag"
  9. 90 tag$(1)="montag"
  10. 100 tag$(2)="dienstag"
  11. 110 tag$(3)="mittwoch"
  12. 120 tag$(4)="donnerstag"
  13. 130 tag$(5)="freitag"
  14. 140 tag$(6)="samstag"
  15. 150 print"wochentag: "tag$(tag)
  16. 160 end
  17. 1000 rem kalender -> julianisch
  18. 1010 if m>2 then m=m-3:goto 1030
  19. 1020 m=m+9:j=j-1
  20. 1030 jh=int(j/100):ja=j-100*jh
  21. 1040 jd=int(146097*jh/4)+int(1461*ja/4)
  22. 1050 jd=jd+int((153*m+2)/5)+t
  23. 1060 return
  24.